	ORG	25000
;
	LD	DE,#8000
	LD	HL,40000
	LD	BC,64

LOOP
	PUSH	BC
	PUSH	DE
	LD	B,8
FONT1
	LD	A,(DE)
	AND	#F0
	LD	(HL),A
	RRCA
	RRCA
	RRCA
	RRCA
	OR	(HL)
	LD	(HL),A
	INC	DE
	INC	HL
	DJNZ	FONT1
	POP	DE
	LD	B,8
FONT2
	LD	A,(DE)
	AND	#0F
	LD	(HL),A
	RLCA
	RLCA
	RLCA
	RLCA
	OR	(HL)
	LD	(HL),A
	INC	HL
	INC	DE
	DJNZ	FONT2
	POP	BC
	DJNZ	LOOP
	RET

